home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_21.txt < prev    next >
Text File  |  1986-09-30  |  18KB  |  335 lines
  1. # near model CODE resource
  2. # jump table entries: 4216-4221 (6 of them)
  3. export_527:
  4. 00000000  526D FE0E                addq.w     [A5 - 0x1F2], 1
  5. 00000004  6100 0284                bsr        +0x286 /* 0000028A */
  6. 00000008  4EAD 02DA                jsr        [A5 + 0x2DA /* export_87 */]
  7. 0000000C  4EAD 076A                jsr        [A5 + 0x76A /* export_233 */]
  8. 00000010  2C49                     movea.l    A6, A1
  9. 00000012  244B                     movea.l    A2, A3
  10. 00000014  4A41                     tst.w      D1
  11. 00000016  6612                     bne        +0x14 /* 0000002A */
  12. 00000018  BDCA                     cmpa.l     A6, A2
  13. 0000001A  6412                     bcc        +0x14 /* 0000002E */
  14. 0000001C  2F0E                     move.l     -[A7], A6
  15. 0000001E  6112                     bsr        +0x14 /* 00000032 */
  16. 00000020  50ED FD05                st         [A5 - 0x2FB]
  17. 00000024  245F                     movea.l    A2, [A7]+
  18. 00000026  6000 00B6                bra        +0xB8 /* 000000DE */
  19. label0000002A:
  20. 0000002A  4EED 064A                jmp        [A5 + 0x64A /* export_197 */]
  21. label0000002E:
  22. 0000002E  4EED 0182                jmp        [A5 + 0x182 /* export_44 */]
  23. export_529:
  24. fn00000032:
  25. 00000032  526D FE0E                addq.w     [A5 - 0x1F2], 1
  26. 00000036  266D ED24                movea.l    A3, [A5 - 0x12DC]
  27. label0000003A:
  28. 0000003A  1CDA                     move.b     [A6]+, [A2]+
  29. 0000003C  B7CA                     cmpa.l     A3, A2
  30. 0000003E  66FA                     bne        -0x4 /* 0000003A */
  31. 00000040  264E                     movea.l    A3, A6
  32. 00000042  4EAD 07E2                jsr        [A5 + 0x7E2 /* export_248 */]
  33. 00000046  264A                     movea.l    A3, A2
  34. 00000048  536D FE0E                subq.w     [A5 - 0x1F2], 1
  35. 0000004C  4E75                     rts
  36. 0000004E  526D FE0E                addq.w     [A5 - 0x1F2], 1
  37. 00000052  4EAD 07F2                jsr        [A5 + 0x7F2 /* export_250 */]
  38. 00000056  0805 0000                btst.b     D5, 0x0
  39. 0000005A  6706                     beq        +0x8 /* 00000062 */
  40. 0000005C  244B                     movea.l    A2, A3
  41. 0000005E  2C49                     movea.l    A6, A1
  42. 00000060  61D0                     bsr        -0x2E /* 00000032 */
  43. label00000062:
  44. 00000062  2449                     movea.l    A2, A1
  45. 00000064  0805 0001                btst.b     D5, 0x1
  46. 00000068  6774                     beq        +0x76 /* 000000DE */
  47. 0000006A  226D ED24                movea.l    A1, [A5 - 0x12DC]
  48. 0000006E  2649                     movea.l    A3, A1
  49. 00000070  568B                     addq.l     A3, 3
  50. 00000072  0C42 FFFD                cmpi.w     D2, 0xFFFD
  51. 00000076  6702                     beq        +0x4 /* 0000007A */
  52. 00000078  548B                     addq.l     A3, 2
  53. label0000007A:
  54. 0000007A  D6C1                     add.w      A3, D1
  55. 0000007C  260B                     move.l     D3, A3
  56. 0000007E  2003                     move.l     D0, D3
  57. 00000080  5280                     addq.l     D0, 1
  58. 00000082  0880 0000                bclr.b     D0, 0x0
  59. 00000086  2640                     movea.l    A3, D0
  60. 00000088  90AD ED14                sub.l      D0, [A5 - 0x12EC]
  61. 0000008C  D0AD ED10                add.l      D0, [A5 - 0x12F0]
  62. 00000090  0480 0000 0032           subi.l     D0, 0x32 /* '2' */
  63. 00000096  B0AD ED0C                cmp.l      D0, [A5 - 0x12F4]
  64. 0000009A  6462                     bcc        +0x64 /* 000000FE */
  65. 0000009C  4EAD 073A                jsr        [A5 + 0x73A /* export_227 */]
  66. 000000A0  2643                     movea.l    A3, D3
  67. 000000A2  4EAD 0742                jsr        [A5 + 0x742 /* export_228 */]
  68. 000000A6  2643                     movea.l    A3, D3
  69. 000000A8  4EAD 07E2                jsr        [A5 + 0x7E2 /* export_248 */]
  70. 000000AC  264A                     movea.l    A3, A2
  71. 000000AE  16BC 0001                move.b     [A3], 0x1
  72. 000000B2  568B                     addq.l     A3, 3
  73. 000000B4  176D F066 FFFF           move.b     [A3 - 0x1], [A5 - 0xF9A]
  74. 000000BA  0C42 FFFD                cmpi.w     D2, 0xFFFD
  75. 000000BE  670E                     beq        +0x10 /* 000000CE */
  76. 000000C0  177C 0080 FFFD           move.b     [A3 - 0x3], 0x80
  77. 000000C6  E05A                     ror        D2.w, 8
  78. 000000C8  16C2                     move.b     [A3]+, D2
  79. 000000CA  E05A                     ror        D2.w, 8
  80. 000000CC  16C2                     move.b     [A3]+, D2
  81. label000000CE:
  82. 000000CE  2F0A                     move.l     -[A7], A2
  83. 000000D0  45ED EE8B                lea.l      A2, [A5 - 0x1175]
  84. 000000D4  5341                     subq.w     D1, 1
  85. label000000D6:
  86. 000000D6  16DA                     move.b     [A3]+, [A2]+
  87. 000000D8  51C9 FFFC                dbf        D1, -0x6 /* 000000D6 */
  88. 000000DC  245F                     movea.l    A2, [A7]+
  89. label000000DE:
  90. 000000DE  6100 0026                bsr        +0x28 /* 00000106 */
  91. 000000E2  4A2D FD05                tst.b      [A5 - 0x2FB]
  92. 000000E6  670C                     beq        +0xE /* 000000F4 */
  93. 000000E8  4EAD 09A2                jsr        [A5 + 0x9A2 /* export_304 */]
  94. 000000EC  4EAD 0272                jsr        [A5 + 0x272 /* export_74 */]
  95. 000000F0  422D FD05                clr.b      [A5 - 0x2FB]
  96. label000000F4:
  97. 000000F4  50ED F062                st         [A5 - 0xF9E]
  98. 000000F8  536D FE0E                subq.w     [A5 - 0x1F2], 1
  99. 000000FC  4E75                     rts
  100. label000000FE:
  101. 000000FE  4EED 040A                jmp        [A5 + 0x40A /* export_125 */]
  102. export_530:
  103. 00000102  246D ED28                movea.l    A2, [A5 - 0x12D8]
  104. fn00000106:
  105. 00000106  526D FE0E                addq.w     [A5 - 0x1F2], 1
  106. 0000010A  48E7 4090                movem.l    -[A7], D1,A0,A3
  107. label0000010E:
  108. 0000010E  264A                     movea.l    A3, A2
  109. 00000110  4EAD 075A                jsr        [A5 + 0x75A /* export_231 */]
  110. 00000114  4A87                     tst.l      D7
  111. 00000116  672A                     beq        +0x2C /* 00000142 */
  112. 00000118  3200                     move.w     D1, D0
  113. 0000011A  204B                     movea.l    A0, A3
  114. 0000011C  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  115. 00000120  6004                     bra        +0x6 /* 00000126 */
  116. label00000122:
  117. 00000122  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  118. label00000126:
  119. 00000126  4A40                     tst.w      D0
  120. 00000128  66F8                     bne        -0x6 /* 00000122 */
  121. 0000012A  5288                     addq.l     A0, 1
  122. 0000012C  2E08                     move.l     D7, A0
  123. 0000012E  9E8A                     sub.l      D7, A2
  124. 00000130  0C41 FFFD                cmpi.w     D1, 0xFFFD
  125. 00000134  6704                     beq        +0x6 /* 0000013A */
  126. 00000136  0047 8000                ori.w      D7, 0x8000
  127. label0000013A:
  128. 0000013A  C14A                     exg        A0, A2
  129. 0000013C  4EAD 069A                jsr        [A5 + 0x69A /* export_207 */]
  130. 00000140  60CC                     bra        -0x32 /* 0000010E */
  131. label00000142:
  132. 00000142  4CDF 0902                movem.l    D1,A0,A3, [A7]+
  133. 00000146  536D FE0E                subq.w     [A5 - 0x1F2], 1
  134. 0000014A  4E75                     rts
  135. export_531:
  136. 0000014C  526D FE0E                addq.w     [A5 - 0x1F2], 1
  137. 00000150  48E7 30D0                movem.l    -[A7], D2,D3,A0,A1,A3
  138. 00000154  206D ED28                movea.l    A0, [A5 - 0x12D8]
  139. 00000158  5388                     subq.l     A0, 1
  140. label0000015A:
  141. 0000015A  5288                     addq.l     A0, 1
  142. 0000015C  C14B                     exg        A0, A3
  143. 0000015E  4EAD 075A                jsr        [A5 + 0x75A /* export_231 */]
  144. 00000162  C14B                     exg        A0, A3
  145. 00000164  4A87                     tst.l      D7
  146. 00000166  675C                     beq        +0x5E /* 000001C4 */
  147. 00000168  3600                     move.w     D3, D0
  148. label0000016A:
  149. 0000016A  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  150. 0000016E  6004                     bra        +0x6 /* 00000174 */
  151. label00000170:
  152. 00000170  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  153. label00000174:
  154. 00000174  4A40                     tst.w      D0
  155. 00000176  67E2                     beq        -0x1C /* 0000015A */
  156. 00000178  0C40 0004                cmpi.w     D0, 0x4
  157. 0000017C  6524                     bcs        +0x26 /* 000001A2 */
  158. 0000017E  0C40 0007                cmpi.w     D0, 0x7
  159. 00000182  621E                     bhi        +0x20 /* 000001A2 */
  160. 00000184  670E                     beq        +0x10 /* 00000194 */
  161. 00000186  4EAD 0752                jsr        [A5 + 0x752 /* export_230 */]
  162. 0000018A  2E00                     move.l     D7, D0
  163. 0000018C  7001                     moveq.l    D0, 0x01
  164. 0000018E  4EAD 0772                jsr        [A5 + 0x772 /* export_234 */]
  165. 00000192  60D6                     bra        -0x28 /* 0000016A */
  166. label00000194:
  167. 00000194  4EAD 0752                jsr        [A5 + 0x752 /* export_230 */]
  168. 00000198  2E00                     move.l     D7, D0
  169. 0000019A  7003                     moveq.l    D0, 0x03
  170. 0000019C  4EAD 077A                jsr        [A5 + 0x77A /* export_235 */]
  171. 000001A0  60C8                     bra        -0x36 /* 0000016A */
  172. label000001A2:
  173. 000001A2  0C40 000D                cmpi.w     D0, 0xD /* '\r' */
  174. 000001A6  66C8                     bne        -0x36 /* 00000170 */
  175. 000001A8  2648                     movea.l    A3, A0
  176. 000001AA  6100 013C                bsr        +0x13E /* 000002E8 */
  177. 000001AE  204B                     movea.l    A0, A3
  178. 000001B0  5689                     addq.l     A1, 3
  179. 000001B2  2649                     movea.l    A3, A1
  180. 000001B4  4EAD 0662                jsr        [A5 + 0x662 /* export_200 */]
  181. 000001B8  2407                     move.l     D2, D7
  182. 000001BA  700E                     moveq.l    D0, 0x0E
  183. 000001BC  2E02                     move.l     D7, D2
  184. 000001BE  4EAD 077A                jsr        [A5 + 0x77A /* export_235 */]
  185. 000001C2  60A6                     bra        -0x58 /* 0000016A */
  186. label000001C4:
  187. 000001C4  422D F061                clr.b      [A5 - 0xF9F]
  188. 000001C8  4CDF 0B0C                movem.l    D2,D3,A0,A1,A3, [A7]+
  189. 000001CC  536D FE0E                subq.w     [A5 - 0x1F2], 1
  190. 000001D0  4E75                     rts
  191. export_532:
  192. 000001D2  526D FE0E                addq.w     [A5 - 0x1F2], 1
  193. 000001D6  48E7 787A                movem.l    -[A7], D1,D2,D3,D4,A1,A2,A3,A4,A6
  194. 000001DA  2448                     movea.l    A2, A0
  195. label000001DC:
  196. 000001DC  1E18                     move.b     D7, [A0]+
  197. 000001DE  0C07 0041                cmpi.b     D7, 0x41 /* 'A' */
  198. 000001E2  6512                     bcs        +0x14 /* 000001F6 */
  199. 000001E4  0C07 005B                cmpi.b     D7, 0x5B /* '[' */
  200. 000001E8  65F2                     bcs        -0xC /* 000001DC */
  201. 000001EA  0C07 0061                cmpi.b     D7, 0x61 /* 'a' */
  202. 000001EE  6506                     bcs        +0x8 /* 000001F6 */
  203. 000001F0  0C07 007B                cmpi.b     D7, 0x7B /* '{' */
  204. 000001F4  65E6                     bcs        -0x18 /* 000001DC */
  205. label000001F6:
  206. 000001F6  0C07 002E                cmpi.b     D7, 0x2E /* '.' */
  207. 000001FA  67E0                     beq        -0x1E /* 000001DC */
  208. 000001FC  0C07 0030                cmpi.b     D7, 0x30 /* '0' */
  209. 00000200  6506                     bcs        +0x8 /* 00000208 */
  210. 00000202  0C07 003A                cmpi.b     D7, 0x3A /* ':' */
  211. 00000206  65D4                     bcs        -0x2A /* 000001DC */
  212. label00000208:
  213. 00000208  5388                     subq.l     A0, 1
  214. 0000020A  2408                     move.l     D2, A0
  215. 0000020C  948A                     sub.l      D2, A2
  216. 0000020E  7800                     moveq.l    D4, 0x00
  217. 00000210  286D ED14                movea.l    A4, [A5 - 0x12EC]
  218. 00000214  7000                     moveq.l    D0, 0x00
  219. label00000216:
  220. 00000216  B9ED ED10                cmpa.l     A4, [A5 - 0x12F0]
  221. 0000021A  642E                     bcc        +0x30 /* 0000024A */
  222. 0000021C  2C4C                     movea.l    A6, A4
  223. 0000021E  181C                     move.b     D4, [A4]+
  224. 00000220  B404                     cmp.b      D2, D4
  225. 00000222  6620                     bne        +0x22 /* 00000244 */
  226. 00000224  7600                     moveq.l    D3, 0x00
  227. 00000226  224C                     movea.l    A1, A4
  228. 00000228  264A                     movea.l    A3, A2
  229. label0000022A:
  230. 0000022A  B1CB                     cmpa.l     A0, A3
  231. 0000022C  673A                     beq        +0x3C /* 00000268 */
  232. 0000022E  1219                     move.b     D1, [A1]+
  233. 00000230  1E1B                     move.b     D7, [A3]+
  234. 00000232  B207                     cmp.b      D1, D7
  235. 00000234  67F4                     beq        -0xA /* 0000022A */
  236. 00000236  0207 00DF                andi.b     D7, 0xDF
  237. 0000023A  0201 00DF                andi.b     D1, 0xDF
  238. 0000023E  50C3                     st         D3
  239. 00000240  B207                     cmp.b      D1, D7
  240. 00000242  67E6                     beq        -0x18 /* 0000022A */
  241. label00000244:
  242. 00000244  5280                     addq.l     D0, 1
  243. 00000246  D9C4                     add.l      A4, D4
  244. 00000248  60CC                     bra        -0x32 /* 00000216 */
  245. label0000024A:
  246. 0000024A  670E                     beq        +0x10 /* 0000025A */
  247. 0000024C  264E                     movea.l    A3, A6
  248. 0000024E  4EAD 0402                jsr        [A5 + 0x402 /* export_124 */]
  249. 00000252  343C 0033                move.w     D2, 0x33 /* '3' */
  250. 00000256  4EED 0042                jmp        [A5 + 0x42 /* export_4 */]
  251. label0000025A:
  252. 0000025A  264C                     movea.l    A3, A4
  253. 0000025C  D7C2                     add.l      A3, D2
  254. 0000025E  528B                     addq.l     A3, 1
  255. 00000260  4EAD 0402                jsr        [A5 + 0x402 /* export_124 */]
  256. 00000264  18C2                     move.b     [A4]+, D2
  257. 00000266  600E                     bra        +0x10 /* 00000276 */
  258. label00000268:
  259. 00000268  4A03                     tst.b      D3
  260. 0000026A  6714                     beq        +0x16 /* 00000280 */
  261. 0000026C  50ED FD06                st         [A5 - 0x2FA]
  262. 00000270  4AAD FCB6                tst.l      [A5 - 0x34A]
  263. 00000274  670A                     beq        +0xC /* 00000280 */
  264. label00000276:
  265. 00000276  224C                     movea.l    A1, A4
  266. 00000278  5342                     subq.w     D2, 1
  267. label0000027A:
  268. 0000027A  12DA                     move.b     [A1]+, [A2]+
  269. 0000027C  51CA FFFC                dbf        D2, -0x6 /* 0000027A */
  270. label00000280:
  271. 00000280  4CDF 5E1E                movem.l    D1,D2,D3,D4,A1,A2,A3,A4,A6, [A7]+
  272. 00000284  536D FE0E                subq.w     [A5 - 0x1F2], 1
  273. 00000288  4E75                     rts
  274. export_528:
  275. fn0000028A:
  276. 0000028A  526D FE0E                addq.w     [A5 - 0x1F2], 1
  277. 0000028E  226D ED28                movea.l    A1, [A5 - 0x12D8]
  278. 00000292  246D ED24                movea.l    A2, [A5 - 0x12DC]
  279. 00000296  578A                     subq.l     A2, 3
  280. 00000298  7201                     moveq.l    D1, 0x01
  281. 0000029A  6140                     bsr        +0x42 /* 000002DC */
  282. 0000029C  672C                     beq        +0x2E /* 000002CA */
  283. 0000029E  7200                     moveq.l    D1, 0x00
  284. 000002A0  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  285. 000002A4  0C40 00ED                cmpi.w     D0, 0xED
  286. 000002A8  670E                     beq        +0x10 /* 000002B8 */
  287. 000002AA  613C                     bsr        +0x3E /* 000002E8 */
  288. 000002AC  2449                     movea.l    A2, A1
  289. 000002AE  612C                     bsr        +0x2E /* 000002DC */
  290. 000002B0  6718                     beq        +0x1A /* 000002CA */
  291. 000002B2  246D ED24                movea.l    A2, [A5 - 0x12DC]
  292. 000002B6  578A                     subq.l     A2, 3
  293. label000002B8:
  294. 000002B8  3E3C 00ED                move.w     D7, 0xED
  295. 000002BC  4EAD 044A                jsr        [A5 + 0x44A /* export_133 */]
  296. 000002C0  611A                     bsr        +0x1C /* 000002DC */
  297. 000002C2  6706                     beq        +0x8 /* 000002CA */
  298. 000002C4  C34A                     exg        A1, A2
  299. 000002C6  6120                     bsr        +0x22 /* 000002E8 */
  300. 000002C8  C34A                     exg        A1, A2
  301. label000002CA:
  302. 000002CA  264A                     movea.l    A3, A2
  303. 000002CC  4EAD 075A                jsr        [A5 + 0x75A /* export_231 */]
  304. 000002D0  4A87                     tst.l      D7
  305. 000002D2  6702                     beq        +0x4 /* 000002D6 */
  306. 000002D4  2647                     movea.l    A3, D7
  307. label000002D6:
  308. 000002D6  536D FE0E                subq.w     [A5 - 0x1F2], 1
  309. 000002DA  4E75                     rts
  310. fn000002DC:
  311. 000002DC  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  312. 000002E0  6704                     beq        +0x6 /* 000002E6 */
  313. 000002E2  0C40 002C                cmpi.w     D0, 0x2C /* ',' */
  314. label000002E6:
  315. 000002E6  4E75                     rts
  316. fn000002E8:
  317. 000002E8  526D FE0E                addq.w     [A5 - 0x1F2], 1
  318. 000002EC  2F0A                     move.l     -[A7], A2
  319. 000002EE  0C10 002E                cmpi.b     [A0], 0x2E /* '.' */
  320. 000002F2  660E                     bne        +0x10 /* 00000302 */
  321. 000002F4  7400                     moveq.l    D2, 0x00
  322. 000002F6  342D F034                move.w     D2, [A5 - 0xFCC]
  323. 000002FA  700E                     moveq.l    D0, 0x0E
  324. 000002FC  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  325. 00000300  6006                     bra        +0x8 /* 00000308 */
  326. label00000302:
  327. 00000302  4EAD 0612                jsr        [A5 + 0x612 /* export_190 */]
  328. 00000306  6B04                     bmi        +0x6 /* 0000030C */
  329. label00000308:
  330. 00000308  4EAD 05CA                jsr        [A5 + 0x5CA /* export_181 */]
  331. label0000030C:
  332. 0000030C  245F                     movea.l    A2, [A7]+
  333. 0000030E  536D FE0E                subq.w     [A5 - 0x1F2], 1
  334. 00000312  4E75                     rts
  335.